home *** CD-ROM | disk | FTP | other *** search
/ Great Canadian Scientists / GCS_CD.iso / mac / PC / GCSData / databa_o.dxr / 00027_Click on Word List.ls < prev    next >
Encoding:
Text File  |  1996-09-21  |  501 b   |  15 lines
  1. on mouseUp
  2.   global SearchIndex, ManBold, ManBoldLine, ManBoldField, WordsField
  3.   set Temp3 to the mouseLine
  4.   set Temp1 to the castNum of sprite 18
  5.   set Temp2 to the name of cast Temp1
  6.   if the textStyle of line Temp3 of field Temp2 <> "Bold" then
  7.     set the textStyle of field WordsField to "Plain"
  8.   end if
  9.   set the textStyle of line Temp3 of field Temp2 to "Bold"
  10.   set ManBold to 1
  11.   set ManBoldLine to Temp3
  12.   set ManBoldField to Temp2
  13.   DisplayResults(Search(line Temp3 of field Temp2))
  14. end
  15.